home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / maestro / source / displytl / displytl.g < prev    next >
Encoding:
Text File  |  1993-06-15  |  53.0 KB  |  1,807 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :menu
  5.     :name                   imagesMenu
  6.     :help                   ""
  7.     :columns                1
  8.     :menu-type              :command
  9.     :menu-handler           nil
  10.     :menu-title             "Images:"
  11.     :menu-item-labels       ("Load Images ..." "Clear Selected Images" "Clear Gallery" )
  12.     :menu-item-label-types  (:string :string :string )
  13.     :menu-item-states       (:active :active :active )
  14.     :menu-item-defaults     (nil nil nil )
  15.     :initial-selections     (nil nil nil )
  16.     :menu-item-handlers     (LoadImages ClearSelectedImages ClearGallery )
  17.     :menu-item-menus        (nil nil nil )
  18.     :menu-item-colors       ("" "" "" )
  19.     :pinnable               t
  20.     :user-data              ()
  21.     :actions                (
  22.         (
  23.         :from                   (imagesMenu "Load Images ...")
  24.         :when                   (Notify )
  25.         :to                     (imagesMenu "Load Images ...")
  26.         :function_type          CallFunction
  27.         :arg_type               ()
  28.         :action                 (LoadImages)
  29.         )
  30.         (
  31.         :from                   (imagesMenu "Clear Selected Images")
  32.         :when                   (Notify )
  33.         :to                     (imagesMenu "Clear Selected Images")
  34.         :function_type          CallFunction
  35.         :arg_type               ()
  36.         :action                 (ClearSelectedImages)
  37.         )
  38.         (
  39.         :from                   (imagesMenu "Clear Gallery")
  40.         :when                   (Notify )
  41.         :to                     (imagesMenu "Clear Gallery")
  42.         :function_type          CallFunction
  43.         :arg_type               ()
  44.         :action                 (ClearGallery)
  45.         )
  46.     )
  47. )
  48. (
  49.     :type                   :menu
  50.     :name                   documentMenu
  51.     :help                   ""
  52.     :columns                1
  53.     :menu-type              :command
  54.     :menu-handler           nil
  55.     :menu-title             "Document:"
  56.     :menu-item-labels       ("Open ..." "Info ..." "Save Sequence" "Save Sequence As ..." "Help ..." "Close" "Quit" )
  57.     :menu-item-label-types  (:string :string :string :string :string :string :string )
  58.     :menu-item-states       (:active :active :active :active :active :active :active )
  59.     :menu-item-defaults     (nil nil nil nil nil nil nil )
  60.     :initial-selections     (nil nil nil nil nil nil nil )
  61.     :menu-item-handlers     (OpenSequence Info SaveSequence SaveSequenceAs Help Close QuitDisplayTool )
  62.     :menu-item-menus        (nil nil nil nil nil nil nil )
  63.     :menu-item-colors       ("" "" "" "" "" "" "" )
  64.     :pinnable               t
  65.     :user-data              ()
  66.     :actions                (
  67.         (
  68.         :from                   (documentMenu "Open ...")
  69.         :when                   (Notify )
  70.         :to                     (documentMenu "Open ...")
  71.         :function_type          CallFunction
  72.         :arg_type               ()
  73.         :action                 (OpenSequence)
  74.         )
  75.         (
  76.         :from                   (documentMenu "Info ...")
  77.         :when                   (Notify )
  78.         :to                     (documentMenu "Info ...")
  79.         :function_type          CallFunction
  80.         :arg_type               ()
  81.         :action                 (Info)
  82.         )
  83.         (
  84.         :from                   (documentMenu "Save Sequence")
  85.         :when                   (Notify )
  86.         :to                     (documentMenu "Save Sequence")
  87.         :function_type          CallFunction
  88.         :arg_type               ()
  89.         :action                 (SaveSequence)
  90.         )
  91.         (
  92.         :from                   (documentMenu "Save Sequence As ...")
  93.         :when                   (Notify )
  94.         :to                     (documentMenu "Save Sequence As ...")
  95.         :function_type          CallFunction
  96.         :arg_type               ()
  97.         :action                 (SaveSequenceAs)
  98.         )
  99.         (
  100.         :from                   (documentMenu "Help ...")
  101.         :when                   (Notify )
  102.         :to                     (documentMenu "Help ...")
  103.         :function_type          CallFunction
  104.         :arg_type               ()
  105.         :action                 (Help)
  106.         )
  107.         (
  108.         :from                   (documentMenu "Close")
  109.         :when                   (Notify )
  110.         :to                     (documentMenu "Close")
  111.         :function_type          CallFunction
  112.         :arg_type               ()
  113.         :action                 (Close)
  114.         )
  115.         (
  116.         :from                   (documentMenu "Quit")
  117.         :when                   (Notify )
  118.         :to                     (documentMenu "Quit")
  119.         :function_type          CallFunction
  120.         :arg_type               ()
  121.         :action                 (QuitDisplayTool)
  122.         )
  123.     )
  124. )
  125. (
  126.     :type                   :menu
  127.     :name                   slidesMenu
  128.     :help                   ""
  129.     :columns                1
  130.     :menu-type              :command
  131.     :menu-handler           nil
  132.     :menu-title             "Slides:"
  133.     :menu-item-labels       ("Slide Info ..." "Redraw Slides" "Copy Slide" "Cut Slide" "Insert Clipboard Slide" "Insert New Slide" "Clear Slide" "Clear All" )
  134.     :menu-item-label-types  (:string :string :string :string :string :string :string :string )
  135.     :menu-item-states       (:active :active :active :active :active :active :active :active )
  136.     :menu-item-defaults     (nil nil nil nil nil nil nil nil )
  137.     :initial-selections     (nil nil nil nil nil nil nil nil )
  138.     :menu-item-handlers     (SlideInfo RedrawSlides CopySlide CutSlide InsertClipboardSlide InsertNewSlide ClearSlide ClearAll )
  139.     :menu-item-menus        (nil nil nil nil nil nil nil nil )
  140.     :menu-item-colors       ("" "" "" "" "" "" "" "" )
  141.     :pinnable               t
  142.     :user-data              ()
  143.     :actions                (
  144.         (
  145.         :from                   (slidesMenu "Slide Info ...")
  146.         :when                   (Notify )
  147.         :to                     (slidesMenu "Slide Info ...")
  148.         :function_type          CallFunction
  149.         :arg_type               ()
  150.         :action                 (SlideInfo)
  151.         )
  152.         (
  153.         :from                   (slidesMenu "Redraw Slides")
  154.         :when                   (Notify )
  155.         :to                     (slidesMenu "Redraw Slides")
  156.         :function_type          CallFunction
  157.         :arg_type               ()
  158.         :action                 (RedrawSlides)
  159.         )
  160.         (
  161.         :from                   (slidesMenu "Copy Slide")
  162.         :when                   (Notify )
  163.         :to                     (slidesMenu "Copy Slide")
  164.         :function_type          CallFunction
  165.         :arg_type               ()
  166.         :action                 (CopySlide)
  167.         )
  168.         (
  169.         :from                   (slidesMenu "Cut Slide")
  170.         :when                   (Notify )
  171.         :to                     (slidesMenu "Cut Slide")
  172.         :function_type          CallFunction
  173.         :arg_type               ()
  174.         :action                 (CutSlide)
  175.         )
  176.         (
  177.         :from                   (slidesMenu "Insert Clipboard Slide")
  178.         :when                   (Notify )
  179.         :to                     (slidesMenu "Insert Clipboard Slide")
  180.         :function_type          CallFunction
  181.         :arg_type               ()
  182.         :action                 (InsertClipboardSlide)
  183.         )
  184.         (
  185.         :from                   (slidesMenu "Insert New Slide")
  186.         :when                   (Notify )
  187.         :to                     (slidesMenu "Insert New Slide")
  188.         :function_type          CallFunction
  189.         :arg_type               ()
  190.         :action                 (InsertNewSlide)
  191.         )
  192.         (
  193.         :from                   (slidesMenu "Clear Slide")
  194.         :when                   (Notify )
  195.         :to                     (slidesMenu "Clear Slide")
  196.         :function_type          CallFunction
  197.         :arg_type               ()
  198.         :action                 (ClearSlide)
  199.         )
  200.         (
  201.         :from                   (slidesMenu "Clear All")
  202.         :when                   (Notify )
  203.         :to                     (slidesMenu "Clear All")
  204.         :function_type          CallFunction
  205.         :arg_type               ()
  206.         :action                 (ClearAll)
  207.         )
  208.     )
  209. )
  210. (
  211.     :type                   :menu
  212.     :name                   imageEditMenu
  213.     :help                   ""
  214.     :columns                1
  215.     :menu-type              :command
  216.     :menu-handler           nil
  217.     :menu-title             "Edit Image:"
  218.     :menu-item-labels       ("Duplicate Image" "Cut" "Resize" "Resize + 10%" "Resize - 10%" "Set To Original Size" )
  219.     :menu-item-label-types  (:string :string :string :string :string :string )
  220.     :menu-item-states       (:active :active :active :active :active :active )
  221.     :menu-item-defaults     (nil nil nil nil nil nil )
  222.     :initial-selections     (nil nil nil nil nil nil )
  223.     :menu-item-handlers     (DuplicateImage CutImage ResizeImageGeneral ResizeImagePlus10Percent ResizeImageMinus10Percent ImageEditSetToOriginalSize )
  224.     :menu-item-menus        (nil nil nil nil nil nil )
  225.     :menu-item-colors       ("" "" "" "" "" "" )
  226.     :pinnable               t
  227.     :user-data              ()
  228.     :actions                (
  229.         (
  230.         :from                   (imageEditMenu "Duplicate Image")
  231.         :when                   (Notify )
  232.         :to                     (imageEditMenu "Duplicate Image")
  233.         :function_type          CallFunction
  234.         :arg_type               ()
  235.         :action                 (DuplicateImage)
  236.         )
  237.         (
  238.         :from                   (imageEditMenu "Cut")
  239.         :when                   (Notify )
  240.         :to                     (imageEditMenu "Cut")
  241.         :function_type          CallFunction
  242.         :arg_type               ()
  243.         :action                 (CutImage)
  244.         )
  245.         (
  246.         :from                   (imageEditMenu "Resize")
  247.         :when                   (Notify )
  248.         :to                     (imageEditMenu "Resize")
  249.         :function_type          CallFunction
  250.         :arg_type               ()
  251.         :action                 (ResizeImageGeneral)
  252.         )
  253.         (
  254.         :from                   (imageEditMenu "Resize + 10%")
  255.         :when                   (Notify )
  256.         :to                     (imageEditMenu "Resize + 10%")
  257.         :function_type          CallFunction
  258.         :arg_type               ()
  259.         :action                 (ResizeImagePlus10Percent)
  260.         )
  261.         (
  262.         :from                   (imageEditMenu "Resize - 10%")
  263.         :when                   (Notify )
  264.         :to                     (imageEditMenu "Resize - 10%")
  265.         :function_type          CallFunction
  266.         :arg_type               ()
  267.         :action                 (ResizeImageMinus10Percent)
  268.         )
  269.         (
  270.         :from                   (imageEditMenu "Set To Original Size")
  271.         :when                   (Notify )
  272.         :to                     (imageEditMenu "Set To Original Size")
  273.         :function_type          CallFunction
  274.         :arg_type               ()
  275.         :action                 (ImageEditSetToOriginalSize)
  276.         )
  277.     )
  278. )
  279. (
  280.     :type                   :menu
  281.     :name                   selectSlideMenu
  282.     :help                   ""
  283.     :columns                1
  284.     :menu-type              :command
  285.     :menu-handler           nil
  286.     :menu-title             "Select Slide:"
  287.     :menu-item-labels       ("Next Slide" "Previous Slide" "First Slide" "Last Slide" "Slide Number ..." )
  288.     :menu-item-label-types  (:string :string :string :string :string )
  289.     :menu-item-states       (:active :active :active :active :active )
  290.     :menu-item-defaults     (nil nil nil nil nil )
  291.     :initial-selections     (nil nil nil nil nil )
  292.     :menu-item-handlers     (NextSlide PreviousSlide FirstSlide LastSlide SlideNumberPopup )
  293.     :menu-item-menus        (nil nil nil nil nil )
  294.     :menu-item-colors       ("" "" "" "" "" )
  295.     :pinnable               t
  296.     :user-data              ()
  297.     :actions                (
  298.         (
  299.         :from                   (selectSlideMenu "Next Slide")
  300.         :when                   (Notify )
  301.         :to                     (selectSlideMenu "Next Slide")
  302.         :function_type          CallFunction
  303.         :arg_type               ()
  304.         :action                 (NextSlide)
  305.         )
  306.         (
  307.         :from                   (selectSlideMenu "Previous Slide")
  308.         :when                   (Notify )
  309.         :to                     (selectSlideMenu "Previous Slide")
  310.         :function_type          CallFunction
  311.         :arg_type               ()
  312.         :action                 (PreviousSlide)
  313.         )
  314.         (
  315.         :from                   (selectSlideMenu "First Slide")
  316.         :when                   (Notify )
  317.         :to                     (selectSlideMenu "First Slide")
  318.         :function_type          CallFunction
  319.         :arg_type               ()
  320.         :action                 (FirstSlide)
  321.         )
  322.         (
  323.         :from                   (selectSlideMenu "Last Slide")
  324.         :when                   (Notify )
  325.         :to                     (selectSlideMenu "Last Slide")
  326.         :function_type          CallFunction
  327.         :arg_type               ()
  328.         :action                 (LastSlide)
  329.         )
  330.         (
  331.         :from                   (selectSlideMenu "Slide Number ...")
  332.         :when                   (Notify )
  333.         :to                     (selectSlideMenu "Slide Number ...")
  334.         :function_type          CallFunction
  335.         :arg_type               ()
  336.         :action                 (SlideNumberPopup)
  337.         )
  338.     )
  339. )
  340. (
  341.     :type                   :base-window
  342.     :name                   baseWindow
  343.     :owner                  nil
  344.     :width                  645
  345.     :height                 619
  346.     :background-color       ""
  347.     :foreground-color       ""
  348.     :label                  "Display Tool Document :  \"untitled\""
  349.     :label-type             :string
  350.     :initial-state          :open
  351.     :show-footer            t
  352.     :resizable              t
  353.     :icon-file              "DisplayTool.icon"
  354.     :icon-label             ""
  355.     :icon-mask-file         "DisplayTool.icon"
  356.     :event-handler          nil
  357.     :user-data              ()
  358.     :actions                ()
  359. )
  360. (
  361.     :type                   :control-area
  362.     :name                   controls1
  363.     :owner                  baseWindow
  364.     :help                   ""
  365.     :x                      0
  366.     :y                      0
  367.     :width                  645
  368.     :height                 54
  369.     :background-color       ""
  370.     :foreground-color       ""
  371.     :initial-state          :visible
  372.     :show-border            nil
  373.     :menu                   nil
  374.     :event-handler          nil
  375.     :user-data              ()
  376.     :actions                ()
  377. )
  378. (
  379.     :type                   :message
  380.     :name                   message1
  381.     :owner                  controls1
  382.     :help                   ""
  383.     :x                      224
  384.     :y                      8
  385.     :width                  310
  386.     :height                 13
  387.     :foreground-color       ""
  388.     :label                  "IMAGE GALLERY:  Drag images onto the slides"
  389.     :label-type             :string
  390.     :label-bold             t
  391.     :initial-state          :active
  392.     :event-handler          nil
  393.     :user-data              ()
  394.     :actions                ()
  395. )
  396. (
  397.     :type                   :button
  398.     :name                   documentButton
  399.     :owner                  controls1
  400.     :help                   ""
  401.     :x                      16
  402.     :y                      20
  403.     :width                  94
  404.     :height                 19
  405.     :constant-width         nil
  406.     :button-type            :normal
  407.     :foreground-color       ""
  408.     :label                  "Document"
  409.     :label-type             :string
  410.     :initial-state          :active
  411.     :menu                   documentMenu
  412.     :notify-handler         nil
  413.     :event-handler          nil
  414.     :user-data              ()
  415.     :actions                ()
  416. )
  417. (
  418.     :type                   :button
  419.     :name                   imagesButton
  420.     :owner                  controls1
  421.     :help                   ""
  422.     :x                      128
  423.     :y                      20
  424.     :width                  75
  425.     :height                 19
  426.     :constant-width         nil
  427.     :button-type            :normal
  428.     :foreground-color       ""
  429.     :label                  "Images"
  430.     :label-type             :string
  431.     :initial-state          :active
  432.     :menu                   imagesMenu
  433.     :notify-handler         nil
  434.     :event-handler          nil
  435.     :user-data              ()
  436.     :actions                ()
  437. )
  438. (
  439.     :type                   :message
  440.     :name                   currentImageMsg
  441.     :owner                  controls1
  442.     :help                   ""
  443.     :x                      224
  444.     :y                      32
  445.     :width                  126
  446.     :height                 13
  447.     :foreground-color       ""
  448.     :label                  "Current Image: None"
  449.     :label-type             :string
  450.     :label-bold             nil
  451.     :initial-state          :active
  452.     :event-handler          nil
  453.     :user-data              ()
  454.     :actions                ()
  455. )
  456. (
  457.     :type                   :canvas-pane
  458.     :name                   gallery
  459.     :owner                  baseWindow
  460.     :help                   ""
  461.     :x                      0
  462.     :y                      53
  463.     :width                  645
  464.     :height                 211
  465.     :background-color       "White"
  466.     :foreground-color       ""
  467.     :initial-state          :visible
  468.     :draggable              nil
  469.     :droppable              nil
  470.     :default-drop-site      nil
  471.     :menu                   nil
  472.     :horizontal-scrollbar   nil
  473.     :scrollable-width       645
  474.     :vertical-scrollbar     nil
  475.     :scrollable-height      211
  476.     :repaint-proc           GalleryRepaint
  477.     :event-handler          nil
  478.     :drawing-model          :xwindows
  479.     :user-data              ()
  480.     :actions                (
  481.         (
  482.         :from                   (baseWindow gallery)
  483.         :when                   (Repaint )
  484.         :to                     (baseWindow gallery)
  485.         :function_type          CallFunction
  486.         :arg_type               ()
  487.         :action                 (GalleryRepaint)
  488.         )
  489.         (
  490.         :from                   (baseWindow gallery)
  491.         :when                   (Select )
  492.         :to                     (baseWindow gallery)
  493.         :function_type          CallFunction
  494.         :arg_type               ()
  495.         :action                 (GalleryEventProc)
  496.         )
  497.         (
  498.         :from                   (baseWindow gallery)
  499.         :when                   (Adjust )
  500.         :to                     (baseWindow gallery)
  501.         :function_type          CallFunction
  502.         :arg_type               ()
  503.         :action                 (GalleryEventProc)
  504.         )
  505.         (
  506.         :from                   (baseWindow gallery)
  507.         :when                   (Menu )
  508.         :to                     (baseWindow gallery)
  509.         :function_type          CallFunction
  510.         :arg_type               ()
  511.         :action                 (GalleryEventProc)
  512.         )
  513.     )
  514. )
  515. (
  516.     :type                   :control-area
  517.     :name                   borderControls
  518.     :owner                  baseWindow
  519.     :help                   ""
  520.     :x                      0
  521.     :y                      263
  522.     :width                  645
  523.     :height                 48
  524.     :background-color       ""
  525.     :foreground-color       ""
  526.     :initial-state          :visible
  527.     :show-border            nil
  528.     :menu                   nil
  529.     :event-handler          nil
  530.     :user-data              ()
  531.     :actions                ()
  532. )
  533. (
  534.     :type                   :message
  535.     :name                   showFullSizeMessage
  536.     :owner                  borderControls
  537.     :help                   ""
  538.     :x                      144
  539.     :y                      8
  540.     :width                  101
  541.     :height                 13
  542.     :foreground-color       ""
  543.     :label                  "Show Full Size:"
  544.     :label-type             :string
  545.     :label-bold             t
  546.     :initial-state          :active
  547.     :event-handler          nil
  548.     :user-data              ()
  549.     :actions                ()
  550. )
  551. (
  552.     :type                   :message
  553.     :name                   message4
  554.     :owner                  borderControls
  555.     :help                   ""
  556.     :x                      288
  557.     :y                      8
  558.     :width                  50
  559.     :height                 13
  560.     :foreground-color       ""
  561.     :label                  "SLIDES:"
  562.     :label-type             :string
  563.     :label-bold             t
  564.     :initial-state          :active
  565.     :event-handler          nil
  566.     :user-data              ()
  567.     :actions                ()
  568. )
  569. (
  570.     :type                   :message
  571.     :name                   currentSlideMessage
  572.     :owner                  borderControls
  573.     :help                   ""
  574.     :x                      352
  575.     :y                      8
  576.     :width                  130
  577.     :height                 13
  578.     :foreground-color       ""
  579.     :label                  "Current Slide    # 1 "
  580.     :label-type             :string
  581.     :label-bold             t
  582.     :initial-state          :active
  583.     :event-handler          nil
  584.     :user-data              ()
  585.     :actions                ()
  586. )
  587. (
  588.     :type                   :button
  589.     :name                   slidesButton
  590.     :owner                  borderControls
  591.     :help                   ""
  592.     :x                      16
  593.     :y                      16
  594.     :width                  68
  595.     :height                 19
  596.     :constant-width         nil
  597.     :button-type            :normal
  598.     :foreground-color       ""
  599.     :label                  "Slides"
  600.     :label-type             :string
  601.     :initial-state          :active
  602.     :menu                   slidesMenu
  603.     :notify-handler         nil
  604.     :event-handler          nil
  605.     :user-data              ()
  606.     :actions                ()
  607. )
  608. (
  609.     :type                   :setting
  610.     :name                   showFullSize
  611.     :owner                  borderControls
  612.     :help                   ""
  613.     :x                      144
  614.     :y                      18
  615.     :width                  116
  616.     :height                 23
  617.     :value-x                144
  618.     :value-y                18
  619.     :rows                   0
  620.     :columns                3
  621.     :layout-type            :vertical
  622.     :foreground-color       ""
  623.     :setting-type           :check
  624.     :selection-required     t
  625.     :label                  ""
  626.     :label-type             :string
  627.     :notify-handler         ShowFullSize
  628.     :event-handler          nil
  629.     :choices                ("Yes" "No" )
  630.     :choice-label-types     (:string :string )
  631.     :choice-colors          ("" "" )
  632.     :initial-selections     (nil nil )
  633.     :initial-state          :active
  634.     :user-data              ()
  635.     :actions                (
  636.         (
  637.         :from                   (baseWindow showFullSize)
  638.         :when                   (Notify )
  639.         :to                     (baseWindow showFullSize)
  640.         :function_type          CallFunction
  641.         :arg_type               ()
  642.         :action                 (ShowFullSize)
  643.         )
  644.     )
  645. )
  646. (
  647.     :type                   :message
  648.     :name                   totalNumberOfSlidesMessage
  649.     :owner                  borderControls
  650.     :help                   ""
  651.     :x                      288
  652.     :y                      24
  653.     :width                  189
  654.     :height                 13
  655.     :foreground-color       ""
  656.     :label                  "Total Number of Slides :  0  "
  657.     :label-type             :string
  658.     :label-bold             t
  659.     :initial-state          :active
  660.     :event-handler          nil
  661.     :user-data              ()
  662.     :actions                ()
  663. )
  664. (
  665.     :type                   :canvas-pane
  666.     :name                   slides
  667.     :owner                  baseWindow
  668.     :help                   ""
  669.     :x                      0
  670.     :y                      310
  671.     :width                  597
  672.     :height                 309
  673.     :background-color       "White"
  674.     :foreground-color       ""
  675.     :initial-state          :visible
  676.     :draggable              nil
  677.     :droppable              nil
  678.     :default-drop-site      nil
  679.     :menu                   nil
  680.     :horizontal-scrollbar   nil
  681.     :scrollable-width       597
  682.     :vertical-scrollbar     nil
  683.     :scrollable-height      309
  684.     :repaint-proc           nil
  685.     :event-handler          nil
  686.     :drawing-model          :xwindows
  687.     :user-data              ()
  688.     :actions                (
  689.         (
  690.         :from                   (baseWindow slides)
  691.         :when                   (Menu )
  692.         :to                     (baseWindow slides)
  693.         :function_type          CallFunction
  694.         :arg_type               ()
  695.         :action                 (SlidesEventProc)
  696.         )
  697.     )
  698. )
  699. (
  700.     :type                   :control-area
  701.     :name                   controls2
  702.     :owner                  baseWindow
  703.     :help                   ""
  704.     :x                      595
  705.     :y                      310
  706.     :width                  50
  707.     :height                 309
  708.     :background-color       ""
  709.     :foreground-color       ""
  710.     :initial-state          :visible
  711.     :show-border            nil
  712.     :menu                   nil
  713.     :event-handler          nil
  714.     :user-data              ()
  715.     :actions                ()
  716. )
  717. (
  718.     :type                   :popup-window
  719.     :name                   infoPopup
  720.     :owner                  baseWindow
  721.     :width                  532
  722.     :height                 292
  723.     :background-color       "Light Gray"
  724.     :foreground-color       ""
  725.     :label                  "Display Tool Info"
  726.     :label-type             :string
  727.     :initial-state          :invisible
  728.     :show-footer            t
  729.     :resizable              t
  730.     :pinned                 nil
  731.     :done-handler           nil
  732.     :event-handler          nil
  733.     :user-data              ()
  734.     :actions                ()
  735. )
  736. (
  737.     :type                   :control-area
  738.     :name                   InfoControlPanel
  739.     :owner                  infoPopup
  740.     :help                   ""
  741.     :x                      0
  742.     :y                      0
  743.     :width                  532
  744.     :height                 292
  745.     :background-color       ""
  746.     :foreground-color       ""
  747.     :initial-state          :visible
  748.     :show-border            t
  749.     :menu                   nil
  750.     :event-handler          nil
  751.     :user-data              ()
  752.     :actions                ()
  753. )
  754. (
  755.     :type                   :message
  756.     :name                   appNameMessage
  757.     :owner                  InfoControlPanel
  758.     :help                   ""
  759.     :x                      144
  760.     :y                      12
  761.     :width                  87
  762.     :height                 13
  763.     :foreground-color       ""
  764.     :label                  "Display Tool"
  765.     :label-type             :string
  766.     :label-bold             t
  767.     :initial-state          :active
  768.     :event-handler          nil
  769.     :user-data              ()
  770.     :actions                ()
  771. )
  772. (
  773.     :type                   :message
  774.     :name                   appNameMessage1
  775.     :owner                  InfoControlPanel
  776.     :help                   ""
  777.     :x                      256
  778.     :y                      12
  779.     :width                  84
  780.     :height                 13
  781.     :foreground-color       ""
  782.     :label                  "Version 1.31"
  783.     :label-type             :string
  784.     :label-bold             t
  785.     :initial-state          :active
  786.     :event-handler          nil
  787.     :user-data              ()
  788.     :actions                ()
  789. )
  790. (
  791.     :type                   :message
  792.     :name                   appDescriptionMessage1
  793.     :owner                  InfoControlPanel
  794.     :help                   ""
  795.     :x                      92
  796.     :y                      40
  797.     :width                  336
  798.     :height                 13
  799.     :foreground-color       ""
  800.     :label                  "An application for displaying and manipulating images"
  801.     :label-type             :string
  802.     :label-bold             nil
  803.     :initial-state          :active
  804.     :event-handler          nil
  805.     :user-data              ()
  806.     :actions                ()
  807. )
  808. (
  809.     :type                   :message
  810.     :name                   appDescriptionMessage2
  811.     :owner                  InfoControlPanel
  812.     :help                   ""
  813.     :x                      48
  814.     :y                      64
  815.     :width                  430
  816.     :height                 13
  817.     :foreground-color       ""
  818.     :label                  "designed for use with the MAEstro Multimedia Authoring Environment"
  819.     :label-type             :string
  820.     :label-bold             nil
  821.     :initial-state          :active
  822.     :event-handler          nil
  823.     :user-data              ()
  824.     :actions                ()
  825. )
  826. (
  827.     :type                   :message
  828.     :name                   developerMessage
  829.     :owner                  InfoControlPanel
  830.     :help                   ""
  831.     :x                      136
  832.     :y                      96
  833.     :width                  244
  834.     :height                 13
  835.     :foreground-color       ""
  836.     :label                  "by Bryant Marks and Janylyn Marks"
  837.     :label-type             :string
  838.     :label-bold             t
  839.     :initial-state          :active
  840.     :event-handler          nil
  841.     :user-data              ()
  842.     :actions                ()
  843. )
  844. (
  845.     :type                   :message
  846.     :name                   message5
  847.     :owner                  InfoControlPanel
  848.     :help                   ""
  849.     :x                      160
  850.     :y                      120
  851.     :width                  202
  852.     :height                 13
  853.     :foreground-color       ""
  854.     :label                  "Modifications by George Drapeau"
  855.     :label-type             :string
  856.     :label-bold             nil
  857.     :initial-state          :active
  858.     :event-handler          nil
  859.     :user-data              ()
  860.     :actions                ()
  861. )
  862. (
  863.     :type                   :message
  864.     :name                   copyrightMessage
  865.     :owner                  InfoControlPanel
  866.     :help                   ""
  867.     :x                      80
  868.     :y                      160
  869.     :width                  379
  870.     :height                 13
  871.     :foreground-color       ""
  872.     :label                  "Copyright (C) 1992 Libraries and Information Resources (L&IR)"
  873.     :label-type             :string
  874.     :label-bold             nil
  875.     :initial-state          :active
  876.     :event-handler          nil
  877.     :user-data              ()
  878.     :actions                ()
  879. )
  880. (
  881.     :type                   :message
  882.     :name                   copyrightMessage2
  883.     :owner                  InfoControlPanel
  884.     :help                   ""
  885.     :x                      196
  886.     :y                      180
  887.     :width                  118
  888.     :height                 13
  889.     :foreground-color       ""
  890.     :label                  "Stanford University"
  891.     :label-type             :string
  892.     :label-bold             nil
  893.     :initial-state          :active
  894.     :event-handler          nil
  895.     :user-data              ()
  896.     :actions                ()
  897. )
  898. (
  899.     :type                   :message
  900.     :name                   copyrightMessage3
  901.     :owner                  InfoControlPanel
  902.     :help                   ""
  903.     :x                      196
  904.     :y                      200
  905.     :width                  119
  906.     :height                 13
  907.     :foreground-color       ""
  908.     :label                  "Stanford, California"
  909.     :label-type             :string
  910.     :label-bold             nil
  911.     :initial-state          :active
  912.     :event-handler          nil
  913.     :user-data              ()
  914.     :actions                ()
  915. )
  916. (
  917.     :type                   :message
  918.     :name                   moreInfoMessage
  919.     :owner                  InfoControlPanel
  920.     :help                   ""
  921.     :x                      96
  922.     :y                      224
  923.     :width                  357
  924.     :height                 13
  925.     :foreground-color       ""
  926.     :label                  "For more information, contact maestro@sioux.stanford.edu"
  927.     :label-type             :string
  928.     :label-bold             nil
  929.     :initial-state          :active
  930.     :event-handler          nil
  931.     :user-data              ()
  932.     :actions                ()
  933. )
  934. (
  935.     :type                   :button
  936.     :name                   info
  937.     :owner                  InfoControlPanel
  938.     :help                   ""
  939.     :x                      232
  940.     :y                      256
  941.     :width                  36
  942.     :height                 19
  943.     :constant-width         nil
  944.     :button-type            :normal
  945.     :foreground-color       ""
  946.     :label                  "OK"
  947.     :label-type             :string
  948.     :initial-state          :active
  949.     :menu                   nil
  950.     :notify-handler         DoneHandler
  951.     :event-handler          nil
  952.     :user-data              ()
  953.     :actions                (
  954.         (
  955.         :from                   (infoPopup info)
  956.         :when                   (Notify )
  957.         :to                     (infoPopup info)
  958.         :function_type          CallFunction
  959.         :arg_type               ()
  960.         :action                 (DoneHandler)
  961.         )
  962.     )
  963. )
  964. (
  965.     :type                   :popup-window
  966.     :name                   helpPopup
  967.     :owner                  baseWindow
  968.     :width                  544
  969.     :height                 579
  970.     :background-color       ""
  971.     :foreground-color       ""
  972.     :label                  "Display Tool Help"
  973.     :label-type             :string
  974.     :initial-state          :invisible
  975.     :show-footer            t
  976.     :resizable              t
  977.     :pinned                 nil
  978.     :done-handler           nil
  979.     :event-handler          nil
  980.     :user-data              ()
  981.     :actions                ()
  982. )
  983. (
  984.     :type                   :control-area
  985.     :name                   controls3
  986.     :owner                  helpPopup
  987.     :help                   ""
  988.     :x                      0
  989.     :y                      0
  990.     :width                  544
  991.     :height                 579
  992.     :background-color       ""
  993.     :foreground-color       ""
  994.     :initial-state          :visible
  995.     :show-border            nil
  996.     :menu                   nil
  997.     :event-handler          nil
  998.     :user-data              ()
  999.     :actions                ()
  1000. )
  1001. (
  1002.     :type                   :button
  1003.     :name                   info2
  1004.     :owner                  controls3
  1005.     :help                   ""
  1006.     :x                      216
  1007.     :y                      16
  1008.     :width                  36
  1009.     :height                 19
  1010.     :constant-width         nil
  1011.     :button-type            :normal
  1012.     :foreground-color       ""
  1013.     :label                  "OK"
  1014.     :label-type             :string
  1015.     :initial-state          :active
  1016.     :menu                   nil
  1017.     :notify-handler         DoneHandler
  1018.     :event-handler          nil
  1019.     :user-data              ()
  1020.     :actions                (
  1021.         (
  1022.         :from                   (helpPopup info2)
  1023.         :when                   (Notify )
  1024.         :to                     (helpPopup info2)
  1025.         :function_type          CallFunction
  1026.         :arg_type               ()
  1027.         :action                 (DoneHandler)
  1028.         )
  1029.     )
  1030. )
  1031. (
  1032.     :type                   :message
  1033.     :name                   message2
  1034.     :owner                  controls3
  1035.     :help                   ""
  1036.     :x                      16
  1037.     :y                      48
  1038.     :width                  488
  1039.     :height                 13
  1040.     :foreground-color       ""
  1041.     :label                  "To resize images, use the rightmost mouse button and drag the image from one"
  1042.     :label-type             :string
  1043.     :label-bold             nil
  1044.     :initial-state          :active
  1045.     :event-handler          nil
  1046.     :user-data              ()
  1047.     :actions                ()
  1048. )
  1049. (
  1050.     :type                   :message
  1051.     :name                   message3
  1052.     :owner                  controls3
  1053.     :help                   ""
  1054.     :x                      16
  1055.     :y                      64
  1056.     :width                  87
  1057.     :height                 13
  1058.     :foreground-color       ""
  1059.     :label                  "of the corners."
  1060.     :label-type             :string
  1061.     :label-bold             nil
  1062.     :initial-state          :active
  1063.     :event-handler          nil
  1064.     :user-data              ()
  1065.     :actions                ()
  1066. )
  1067. (
  1068.     :type                   :message
  1069.     :name                   message6
  1070.     :owner                  controls3
  1071.     :help                   ""
  1072.     :x                      16
  1073.     :y                      96
  1074.     :width                  475
  1075.     :height                 13
  1076.     :foreground-color       ""
  1077.     :label                  "Set the duration field in seconds to the desired length of time to display each"
  1078.     :label-type             :string
  1079.     :label-bold             nil
  1080.     :initial-state          :active
  1081.     :event-handler          nil
  1082.     :user-data              ()
  1083.     :actions                ()
  1084. )
  1085. (
  1086.     :type                   :message
  1087.     :name                   message7
  1088.     :owner                  controls3
  1089.     :help                   ""
  1090.     :x                      16
  1091.     :y                      112
  1092.     :width                  478
  1093.     :height                 13
  1094.     :foreground-color       ""
  1095.     :label                  "slide, or press the \"Until Next Slide\" button.  This puts the slide in \"indefinite\""
  1096.     :label-type             :string
  1097.     :label-bold             nil
  1098.     :initial-state          :active
  1099.     :event-handler          nil
  1100.     :user-data              ()
  1101.     :actions                ()
  1102. )
  1103. (
  1104.     :type                   :message
  1105.     :name                   message8
  1106.     :owner                  controls3
  1107.     :help                   ""
  1108.     :x                      16
  1109.     :y                      128
  1110.     :width                  447
  1111.     :height                 13
  1112.     :foreground-color       ""
  1113.     :label                  "mode, so that it will display indefinitely until the next slide is displayed."
  1114.     :label-type             :string
  1115.     :label-bold             nil
  1116.     :initial-state          :active
  1117.     :event-handler          nil
  1118.     :user-data              ()
  1119.     :actions                ()
  1120. )
  1121. (
  1122.     :type                   :popup-window
  1123.     :name                   slidePopup
  1124.     :owner                  baseWindow
  1125.     :width                  437
  1126.     :height                 507
  1127.     :background-color       ""
  1128.     :foreground-color       ""
  1129.     :label                  "Slide Information"
  1130.     :label-type             :string
  1131.     :initial-state          :invisible
  1132.     :show-footer            t
  1133.     :resizable              t
  1134.     :pinned                 nil
  1135.     :done-handler           nil
  1136.     :event-handler          nil
  1137.     :user-data              ()
  1138.     :actions                ()
  1139. )
  1140. (
  1141.     :type                   :control-area
  1142.     :name                   controls5
  1143.     :owner                  slidePopup
  1144.     :help                   ""
  1145.     :x                      0
  1146.     :y                      0
  1147.     :width                  437
  1148.     :height                 507
  1149.     :background-color       ""
  1150.     :foreground-color       ""
  1151.     :initial-state          :visible
  1152.     :show-border            nil
  1153.     :menu                   nil
  1154.     :event-handler          nil
  1155.     :user-data              ()
  1156.     :actions                ()
  1157. )
  1158. (
  1159.     :type                   :button
  1160.     :name                   selectSlideButton
  1161.     :owner                  controls5
  1162.     :help                   ""
  1163.     :x                      304
  1164.     :y                      20
  1165.     :width                  102
  1166.     :height                 19
  1167.     :constant-width         nil
  1168.     :button-type            :normal
  1169.     :foreground-color       ""
  1170.     :label                  "Select Slide"
  1171.     :label-type             :string
  1172.     :initial-state          :active
  1173.     :menu                   selectSlideMenu
  1174.     :notify-handler         nil
  1175.     :event-handler          nil
  1176.     :user-data              ()
  1177.     :actions                ()
  1178. )
  1179. (
  1180.     :type                   :message
  1181.     :name                   currentSlideInfoMessage
  1182.     :owner                  controls5
  1183.     :help                   ""
  1184.     :x                      16
  1185.     :y                      24
  1186.     :width                  130
  1187.     :height                 13
  1188.     :foreground-color       ""
  1189.     :label                  "Current Slide    # 1 "
  1190.     :label-type             :string
  1191.     :label-bold             t
  1192.     :initial-state          :active
  1193.     :event-handler          nil
  1194.     :user-data              ()
  1195.     :actions                ()
  1196. )
  1197. (
  1198.     :type                   :text-field
  1199.     :name                   label
  1200.     :owner                  controls5
  1201.     :help                   ""
  1202.     :x                      16
  1203.     :y                      64
  1204.     :width                  277
  1205.     :height                 15
  1206.     :value-x                69
  1207.     :value-y                64
  1208.     :value-length           28
  1209.     :stored-length          255
  1210.     :rows                   3
  1211.     :foreground-color       ""
  1212.     :text-type              :alphanumeric
  1213.     :label                  "Label :"
  1214.     :label-type             :string
  1215.     :layout-type            :horizontal
  1216.     :value-underlined       t
  1217.     :initial-value          ""
  1218.     :initial-state          :active
  1219.     :read-only              nil
  1220.     :notify-handler         nil
  1221.     :event-handler          LabelEventProc
  1222.     :user-data              ()
  1223.     :actions                (
  1224.         (
  1225.         :from                   (slidePopup label)
  1226.         :when                   (AnyEvent )
  1227.         :to                     (slidePopup label)
  1228.         :function_type          CallFunction
  1229.         :arg_type               ()
  1230.         :action                 (LabelEventProc)
  1231.         )
  1232.     )
  1233. )
  1234. (
  1235.     :type                   :button
  1236.     :name                   indefiniteButton
  1237.     :owner                  controls5
  1238.     :help                   ""
  1239.     :x                      248
  1240.     :y                      100
  1241.     :width                  114
  1242.     :height                 19
  1243.     :constant-width         nil
  1244.     :button-type            :normal
  1245.     :foreground-color       ""
  1246.     :label                  "Until Next Slide"
  1247.     :label-type             :string
  1248.     :initial-state          :active
  1249.     :menu                   nil
  1250.     :notify-handler         Indefinite
  1251.     :event-handler          nil
  1252.     :user-data              ()
  1253.     :actions                (
  1254.         (
  1255.         :from                   (slidePopup indefiniteButton)
  1256.         :when                   (Notify )
  1257.         :to                     (slidePopup indefiniteButton)
  1258.         :function_type          CallFunction
  1259.         :arg_type               ()
  1260.         :action                 (Indefinite)
  1261.         )
  1262.     )
  1263. )
  1264. (
  1265.     :type                   :text-field
  1266.     :name                   duration
  1267.     :owner                  controls5
  1268.     :help                   ""
  1269.     :x                      16
  1270.     :y                      104
  1271.     :width                  226
  1272.     :height                 15
  1273.     :value-x                178
  1274.     :value-y                104
  1275.     :value-length           8
  1276.     :stored-length          80
  1277.     :rows                   3
  1278.     :foreground-color       ""
  1279.     :text-type              :alphanumeric
  1280.     :label                  "Display Time (in sec) :"
  1281.     :label-type             :string
  1282.     :layout-type            :horizontal
  1283.     :value-underlined       t
  1284.     :initial-value          ""
  1285.     :initial-state          :active
  1286.     :read-only              nil
  1287.     :notify-handler         nil
  1288.     :event-handler          DurationEventProc
  1289.     :user-data              ()
  1290.     :actions                (
  1291.         (
  1292.         :from                   (slidePopup duration)
  1293.         :when                   (AnyEvent )
  1294.         :to                     (slidePopup duration)
  1295.         :function_type          CallFunction
  1296.         :arg_type               ()
  1297.         :action                 (DurationEventProc)
  1298.         )
  1299.     )
  1300. )
  1301. (
  1302.     :type                   :scrolling-list
  1303.     :name                   imageList
  1304.     :owner                  controls5
  1305.     :help                   ""
  1306.     :x                      16
  1307.     :y                      152
  1308.     :width                  390
  1309.     :height                 134
  1310.     :value-x                16
  1311.     :value-y                152
  1312.     :rows                   5
  1313.     :foreground-color       ""
  1314.     :label                  ""
  1315.     :title                  "Images:"
  1316.     :label-type             :string
  1317.     :layout-type            :horizontal
  1318.     :read-only              nil
  1319.     :multiple-selections    nil
  1320.     :selection-required     nil
  1321.     :initial-state          :active
  1322.     :droppable              nil
  1323.     :default-drop-site      nil
  1324.     :menu                   nil
  1325.     :notify-handler         ImageList
  1326.     :event-handler          nil
  1327.     :initial-list-values    ()
  1328.     :initial-list-glyphs    ()
  1329.     :initial-selections     ()
  1330.     :user-data              ()
  1331.     :actions                (
  1332.         (
  1333.         :from                   (slidePopup imageList)
  1334.         :when                   (Notify )
  1335.         :to                     (slidePopup imageList)
  1336.         :function_type          CallFunction
  1337.         :arg_type               ()
  1338.         :action                 (ImageList)
  1339.         )
  1340.     )
  1341. )
  1342. (
  1343.     :type                   :message
  1344.     :name                   imageNameMessage
  1345.     :owner                  controls5
  1346.     :help                   ""
  1347.     :x                      16
  1348.     :y                      312
  1349.     :width                  92
  1350.     :height                 13
  1351.     :foreground-color       ""
  1352.     :label                  "Image Name: "
  1353.     :label-type             :string
  1354.     :label-bold             t
  1355.     :initial-state          :active
  1356.     :event-handler          nil
  1357.     :user-data              ()
  1358.     :actions                ()
  1359. )
  1360. (
  1361.     :type                   :message
  1362.     :name                   imageName
  1363.     :owner                  controls5
  1364.     :help                   ""
  1365.     :x                      120
  1366.     :y                      312
  1367.     :width                  0
  1368.     :height                 0
  1369.     :foreground-color       ""
  1370.     :label                  ""
  1371.     :label-type             :string
  1372.     :label-bold             nil
  1373.     :initial-state          :active
  1374.     :event-handler          nil
  1375.     :user-data              ()
  1376.     :actions                ()
  1377. )
  1378. (
  1379.     :type                   :message
  1380.     :name                   imageFormatMessage
  1381.     :owner                  controls5
  1382.     :help                   ""
  1383.     :x                      16
  1384.     :y                      336
  1385.     :width                  100
  1386.     :height                 13
  1387.     :foreground-color       ""
  1388.     :label                  "Image Format: "
  1389.     :label-type             :string
  1390.     :label-bold             t
  1391.     :initial-state          :active
  1392.     :event-handler          nil
  1393.     :user-data              ()
  1394.     :actions                ()
  1395. )
  1396. (
  1397.     :type                   :message
  1398.     :name                   imageFormat
  1399.     :owner                  controls5
  1400.     :help                   ""
  1401.     :x                      128
  1402.     :y                      336
  1403.     :width                  0
  1404.     :height                 0
  1405.     :foreground-color       ""
  1406.     :label                  ""
  1407.     :label-type             :string
  1408.     :label-bold             nil
  1409.     :initial-state          :active
  1410.     :event-handler          nil
  1411.     :user-data              ()
  1412.     :actions                ()
  1413. )
  1414. (
  1415.     :type                   :message
  1416.     :name                   imageOriginalSizeMessage
  1417.     :owner                  controls5
  1418.     :help                   ""
  1419.     :x                      16
  1420.     :y                      360
  1421.     :width                  135
  1422.     :height                 13
  1423.     :foreground-color       ""
  1424.     :label                  "Original Size (WxH):"
  1425.     :label-type             :string
  1426.     :label-bold             t
  1427.     :initial-state          :active
  1428.     :event-handler          nil
  1429.     :user-data              ()
  1430.     :actions                ()
  1431. )
  1432. (
  1433.     :type                   :message
  1434.     :name                   imageOriginalSize
  1435.     :owner                  controls5
  1436.     :help                   ""
  1437.     :x                      168
  1438.     :y                      360
  1439.     :width                  0
  1440.     :height                 0
  1441.     :foreground-color       ""
  1442.     :label                  ""
  1443.     :label-type             :string
  1444.     :label-bold             nil
  1445.     :initial-state          :active
  1446.     :event-handler          nil
  1447.     :user-data              ()
  1448.     :actions                ()
  1449. )
  1450. (
  1451.     :type                   :text-field
  1452.     :name                   imageWidth
  1453.     :owner                  controls5
  1454.     :help                   ""
  1455.     :x                      16
  1456.     :y                      392
  1457.     :width                  198
  1458.     :height                 15
  1459.     :value-x                139
  1460.     :value-y                392
  1461.     :value-length           5
  1462.     :stored-length          80
  1463.     :rows                   3
  1464.     :foreground-color       ""
  1465.     :text-type              :numeric
  1466.     :label                  "Displayed Width:"
  1467.     :label-type             :string
  1468.     :layout-type            :horizontal
  1469.     :value-underlined       t
  1470.     :max-value              1200
  1471.     :min-value              0
  1472.     :initial-value          0
  1473.     :initial-state          :active
  1474.     :read-only              nil
  1475.     :notify-handler         ImageWidth
  1476.     :event-handler          nil
  1477.     :user-data              ()
  1478.     :actions                (
  1479.         (
  1480.         :from                   (slidePopup imageWidth)
  1481.         :when                   (Notify )
  1482.         :to                     (slidePopup imageWidth)
  1483.         :function_type          CallFunction
  1484.         :arg_type               ()
  1485.         :action                 (ImageWidth)
  1486.         )
  1487.     )
  1488. )
  1489. (
  1490.     :type                   :button
  1491.     :name                   imageEditButton
  1492.     :owner                  controls5
  1493.     :help                   ""
  1494.     :x                      280
  1495.     :y                      392
  1496.     :width                  97
  1497.     :height                 19
  1498.     :constant-width         nil
  1499.     :button-type            :normal
  1500.     :foreground-color       ""
  1501.     :label                  "Edit Image"
  1502.     :label-type             :string
  1503.     :initial-state          :active
  1504.     :menu                   imageEditMenu
  1505.     :notify-handler         nil
  1506.     :event-handler          nil
  1507.     :user-data              ()
  1508.     :actions                ()
  1509. )
  1510. (
  1511.     :type                   :text-field
  1512.     :name                   imageHeight
  1513.     :owner                  controls5
  1514.     :help                   ""
  1515.     :x                      16
  1516.     :y                      416
  1517.     :width                  204
  1518.     :height                 15
  1519.     :value-x                145
  1520.     :value-y                416
  1521.     :value-length           5
  1522.     :stored-length          80
  1523.     :rows                   3
  1524.     :foreground-color       ""
  1525.     :text-type              :numeric
  1526.     :label                  "Displayed Height:"
  1527.     :label-type             :string
  1528.     :layout-type            :horizontal
  1529.     :value-underlined       t
  1530.     :max-value              1200
  1531.     :min-value              0
  1532.     :initial-value          0
  1533.     :initial-state          :active
  1534.     :read-only              nil
  1535.     :notify-handler         ImageHeight
  1536.     :event-handler          nil
  1537.     :user-data              ()
  1538.     :actions                (
  1539.         (
  1540.         :from                   (slidePopup imageHeight)
  1541.         :when                   (Notify )
  1542.         :to                     (slidePopup imageHeight)
  1543.         :function_type          CallFunction
  1544.         :arg_type               ()
  1545.         :action                 (ImageHeight)
  1546.         )
  1547.     )
  1548. )
  1549. (
  1550.     :type                   :text-field
  1551.     :name                   imageXPosition
  1552.     :owner                  controls5
  1553.     :help                   ""
  1554.     :x                      16
  1555.     :y                      440
  1556.     :width                  155
  1557.     :height                 15
  1558.     :value-x                96
  1559.     :value-y                440
  1560.     :value-length           5
  1561.     :stored-length          80
  1562.     :rows                   3
  1563.     :foreground-color       ""
  1564.     :text-type              :numeric
  1565.     :label                  "X Position:"
  1566.     :label-type             :string
  1567.     :layout-type            :horizontal
  1568.     :value-underlined       t
  1569.     :max-value              1200
  1570.     :min-value              0
  1571.     :initial-value          0
  1572.     :initial-state          :active
  1573.     :read-only              nil
  1574.     :notify-handler         ImageXPosition
  1575.     :event-handler          nil
  1576.     :user-data              ()
  1577.     :actions                (
  1578.         (
  1579.         :from                   (slidePopup imageXPosition)
  1580.         :when                   (Notify )
  1581.         :to                     (slidePopup imageXPosition)
  1582.         :function_type          CallFunction
  1583.         :arg_type               ()
  1584.         :action                 (ImageXPosition)
  1585.         )
  1586.     )
  1587. )
  1588. (
  1589.     :type                   :text-field
  1590.     :name                   imageYPosition
  1591.     :owner                  controls5
  1592.     :help                   ""
  1593.     :x                      16
  1594.     :y                      464
  1595.     :width                  155
  1596.     :height                 15
  1597.     :value-x                96
  1598.     :value-y                464
  1599.     :value-length           5
  1600.     :stored-length          80
  1601.     :rows                   3
  1602.     :foreground-color       ""
  1603.     :text-type              :numeric
  1604.     :label                  "Y Position:"
  1605.     :label-type             :string
  1606.     :layout-type            :horizontal
  1607.     :value-underlined       t
  1608.     :max-value              1200
  1609.     :min-value              0
  1610.     :initial-value          0
  1611.     :initial-state          :active
  1612.     :read-only              nil
  1613.     :notify-handler         ImageYPosition
  1614.     :event-handler          nil
  1615.     :user-data              ()
  1616.     :actions                (
  1617.         (
  1618.         :from                   (slidePopup imageYPosition)
  1619.         :when                   (Notify )
  1620.         :to                     (slidePopup imageYPosition)
  1621.         :function_type          CallFunction
  1622.         :arg_type               ()
  1623.         :action                 (ImageYPosition)
  1624.         )
  1625.     )
  1626. )
  1627. (
  1628.     :type                   :popup-window
  1629.     :name                   slideNumberPopup
  1630.     :owner                  baseWindow
  1631.     :width                  380
  1632.     :height                 86
  1633.     :background-color       ""
  1634.     :foreground-color       ""
  1635.     :label                  "Slide Number"
  1636.     :label-type             :string
  1637.     :initial-state          :invisible
  1638.     :show-footer            t
  1639.     :resizable              t
  1640.     :pinned                 nil
  1641.     :done-handler           nil
  1642.     :event-handler          nil
  1643.     :user-data              ()
  1644.     :actions                ()
  1645. )
  1646. (
  1647.     :type                   :control-area
  1648.     :name                   controls4
  1649.     :owner                  slideNumberPopup
  1650.     :help                   ""
  1651.     :x                      0
  1652.     :y                      0
  1653.     :width                  380
  1654.     :height                 86
  1655.     :background-color       ""
  1656.     :foreground-color       ""
  1657.     :initial-state          :visible
  1658.     :show-border            nil
  1659.     :menu                   nil
  1660.     :event-handler          nil
  1661.     :user-data              ()
  1662.     :actions                ()
  1663. )
  1664. (
  1665.     :type                   :text-field
  1666.     :name                   slideNumber
  1667.     :owner                  controls4
  1668.     :help                   ""
  1669.     :x                      24
  1670.     :y                      32
  1671.     :width                  175
  1672.     :height                 15
  1673.     :value-x                128
  1674.     :value-y                32
  1675.     :value-length           4
  1676.     :stored-length          80
  1677.     :rows                   3
  1678.     :foreground-color       ""
  1679.     :text-type              :numeric
  1680.     :label                  "Slide Number:"
  1681.     :label-type             :string
  1682.     :layout-type            :horizontal
  1683.     :value-underlined       t
  1684.     :max-value              100
  1685.     :min-value              0
  1686.     :initial-value          0
  1687.     :initial-state          :active
  1688.     :read-only              nil
  1689.     :notify-handler         SlideNumber
  1690.     :event-handler          nil
  1691.     :user-data              ()
  1692.     :actions                (
  1693.         (
  1694.         :from                   (slideNumberPopup slideNumber)
  1695.         :when                   (Notify )
  1696.         :to                     (slideNumberPopup slideNumber)
  1697.         :function_type          CallFunction
  1698.         :arg_type               ()
  1699.         :action                 (SlideNumber)
  1700.         )
  1701.     )
  1702. )
  1703. (
  1704.     :type                   :popup-window
  1705.     :name                   resizePopup
  1706.     :owner                  baseWindow
  1707.     :width                  400
  1708.     :height                 150
  1709.     :background-color       ""
  1710.     :foreground-color       ""
  1711.     :label                  "Resize Information"
  1712.     :label-type             :string
  1713.     :initial-state          :invisible
  1714.     :show-footer            t
  1715.     :resizable              t
  1716.     :pinned                 nil
  1717.     :done-handler           nil
  1718.     :event-handler          nil
  1719.     :user-data              ()
  1720.     :actions                ()
  1721. )
  1722. (
  1723.     :type                   :control-area
  1724.     :name                   controls6
  1725.     :owner                  resizePopup
  1726.     :help                   ""
  1727.     :x                      0
  1728.     :y                      0
  1729.     :width                  400
  1730.     :height                 150
  1731.     :background-color       ""
  1732.     :foreground-color       ""
  1733.     :initial-state          :visible
  1734.     :show-border            nil
  1735.     :menu                   nil
  1736.     :event-handler          nil
  1737.     :user-data              ()
  1738.     :actions                ()
  1739. )
  1740. (
  1741.     :type                   :message
  1742.     :name                   message9
  1743.     :owner                  controls6
  1744.     :help                   ""
  1745.     :x                      24
  1746.     :y                      40
  1747.     :width                  345
  1748.     :height                 13
  1749.     :foreground-color       ""
  1750.     :label                  "To resize images, use the rightmost mouse button"
  1751.     :label-type             :string
  1752.     :label-bold             t
  1753.     :initial-state          :active
  1754.     :event-handler          nil
  1755.     :user-data              ()
  1756.     :actions                ()
  1757. )
  1758. (
  1759.     :type                   :message
  1760.     :name                   message11
  1761.     :owner                  controls6
  1762.     :help                   ""
  1763.     :x                      24
  1764.     :y                      56
  1765.     :width                  296
  1766.     :height                 13
  1767.     :foreground-color       ""
  1768.     :label                  "and drag the image from one of its corners."
  1769.     :label-type             :string
  1770.     :label-bold             t
  1771.     :initial-state          :active
  1772.     :event-handler          nil
  1773.     :user-data              ()
  1774.     :actions                ()
  1775. )
  1776. (
  1777.     :type                   :button
  1778.     :name                   info1
  1779.     :owner                  controls6
  1780.     :help                   ""
  1781.     :x                      144
  1782.     :y                      104
  1783.     :width                  36
  1784.     :height                 19
  1785.     :constant-width         nil
  1786.     :button-type            :normal
  1787.     :foreground-color       ""
  1788.     :label                  "OK"
  1789.     :label-type             :string
  1790.     :initial-state          :active
  1791.     :menu                   nil
  1792.     :notify-handler         DoneHandler
  1793.     :event-handler          nil
  1794.     :user-data              ()
  1795.     :actions                (
  1796.         (
  1797.         :from                   (resizePopup info1)
  1798.         :when                   (Notify )
  1799.         :to                     (resizePopup info1)
  1800.         :function_type          CallFunction
  1801.         :arg_type               ()
  1802.         :action                 (DoneHandler)
  1803.         )
  1804.     )
  1805. )
  1806. )
  1807.